YES 1.36
↳ HASKELL
↳ IFR
((unionBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]) :: (a -> a -> Bool) -> [a] -> [a] -> [a]) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||||||||||
deleteBy :: (a -> a -> Bool) -> a -> [a] -> [a]
|
|||||||||||||||||||||||||||
elem_by :: (a -> a -> Bool) -> a -> [a] -> Bool
|
|||||||||||||||||||||||||||
nubBy :: (a -> a -> Bool) -> [a] -> [a]
|
|||||||||||||||||||||||||||
unionBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]
|
import qualified List import qualified Prelude |
if eq x y then ys else y : deleteBy eq x ys
deleteBy0 ys y eq x True = ys deleteBy0 ys y eq x False = y : deleteBy eq x ys
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
((unionBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]) :: (a -> a -> Bool) -> [a] -> [a] -> [a]) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||||||||||
deleteBy :: (a -> a -> Bool) -> a -> [a] -> [a]
|
|||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||
elem_by :: (a -> a -> Bool) -> a -> [a] -> Bool
|
|||||||||||||||||||||||||||
nubBy :: (a -> a -> Bool) -> [a] -> [a]
|
|||||||||||||||||||||||||||
unionBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]
|
import qualified List import qualified Prelude |
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
((unionBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]) :: (a -> a -> Bool) -> [a] -> [a] -> [a]) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||||||||||
deleteBy :: (a -> a -> Bool) -> a -> [a] -> [a]
|
|||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||
elem_by :: (a -> a -> Bool) -> a -> [a] -> Bool
|
|||||||||||||||||||||||||||
nubBy :: (a -> a -> Bool) -> [a] -> [a]
|
|||||||||||||||||||||||||||
unionBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]
|
import qualified List import qualified Prelude |
nubBy' [] vy = [] nubBy' (y : ys) xs
| elem_by eq y xs
= nubBy' ys xs | otherwise
= y : nubBy' ys (y : xs)
nubBy' [] vy = nubBy'3 [] vy nubBy' (y : ys) xs = nubBy'2 (y : ys) xs
nubBy'1 y ys xs True = nubBy' ys xs nubBy'1 y ys xs False = nubBy'0 y ys xs otherwise
nubBy'0 y ys xs True = y : nubBy' ys (y : xs)
nubBy'2 (y : ys) xs = nubBy'1 y ys xs (elem_by eq y xs)
nubBy'3 [] vy = [] nubBy'3 wz xu = nubBy'2 wz xu
undefined
| False
= undefined
undefined = undefined1
undefined0 True = undefined
undefined1 = undefined0 False
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ LetRed
((unionBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]) :: (a -> a -> Bool) -> [a] -> [a] -> [a]) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||||||||||||||||||||||||||||
deleteBy :: (a -> a -> Bool) -> a -> [a] -> [a]
|
|||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||
elem_by :: (a -> a -> Bool) -> a -> [a] -> Bool
|
|||||||||||||||||||||||||||||||||||||||||||||
nubBy :: (a -> a -> Bool) -> [a] -> [a]
|
|||||||||||||||||||||||||||||||||||||||||||||
unionBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]
|
import qualified List import qualified Prelude |
nubBy' l [] where
nubBy' [] vy = nubBy'3 [] vy nubBy' (y : ys) xs = nubBy'2 (y : ys) xs
nubBy'0 y ys xs True = y : nubBy' ys (y : xs)
nubBy'1 y ys xs True = nubBy' ys xs nubBy'1 y ys xs False = nubBy'0 y ys xs otherwise
nubBy'2 (y : ys) xs = nubBy'1 y ys xs (elem_by eq y xs)
nubBy'3 [] vy = [] nubBy'3 wz xu = nubBy'2 wz xu
nubByNubBy'3 xv [] vy = [] nubByNubBy'3 xv wz xu = nubByNubBy'2 xv wz xu
nubByNubBy'2 xv (y : ys) xs = nubByNubBy'1 xv y ys xs (elem_by xv y xs)
nubByNubBy'0 xv y ys xs True = y : nubByNubBy' xv ys (y : xs)
nubByNubBy'1 xv y ys xs True = nubByNubBy' xv ys xs nubByNubBy'1 xv y ys xs False = nubByNubBy'0 xv y ys xs otherwise
nubByNubBy' xv [] vy = nubByNubBy'3 xv [] vy nubByNubBy' xv (y : ys) xs = nubByNubBy'2 xv (y : ys) xs
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ LetRed
↳ HASKELL
↳ Narrow
(unionBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]) |
import qualified Maybe import qualified Prelude |
|||||||||
deleteBy :: (a -> a -> Bool) -> a -> [a] -> [a]
|
|||||||||
|
|||||||||
elem_by :: (a -> a -> Bool) -> a -> [a] -> Bool
|
|||||||||
nubBy :: (a -> a -> Bool) -> [a] -> [a]
|
|||||||||
|
|||||||||
|
|||||||||
|
|||||||||
|
|||||||||
|
|||||||||
unionBy :: (a -> a -> Bool) -> [a] -> [a] -> [a]
|
import qualified List import qualified Prelude |
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ LetRed
↳ HASKELL
↳ Narrow
↳ AND
↳ QDP
↳ DependencyGraphProof
↳ QDP
↳ QDP
↳ QDP
new_nubByNubBy'(xw48, :(xw500, xw501), xw51, xw52, ba) → new_nubByNubBy'1(xw48, xw500, xw501, xw51, xw52, :(xw51, xw52), ba)
new_nubByNubBy'1(xw48, xw49, xw50, xw51, xw52, :(xw540, xw541), ba) → new_nubByNubBy'10(xw48, xw49, xw50, xw51, xw52, xw541, ba)
new_nubByNubBy'10(xw48, xw49, :(xw500, xw501), xw51, xw52, xw54, ba) → new_nubByNubBy'1(xw48, xw500, xw501, xw51, xw52, :(xw51, xw52), ba)
new_nubByNubBy'1(xw48, xw49, xw50, xw51, xw52, [], ba) → new_nubByNubBy'(xw48, xw50, xw49, :(xw51, xw52), ba)
new_nubByNubBy'10(xw48, xw49, xw50, xw51, xw52, :(xw540, xw541), ba) → new_nubByNubBy'10(xw48, xw49, xw50, xw51, xw52, xw541, ba)
new_nubByNubBy'10(xw48, xw49, xw50, xw51, xw52, [], ba) → new_nubByNubBy'(xw48, xw50, xw49, :(xw51, xw52), ba)
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ LetRed
↳ HASKELL
↳ Narrow
↳ AND
↳ QDP
↳ DependencyGraphProof
↳ QDP
↳ QDPSizeChangeProof
↳ QDP
↳ QDP
↳ QDP
new_nubByNubBy'(xw48, :(xw500, xw501), xw51, xw52, ba) → new_nubByNubBy'1(xw48, xw500, xw501, xw51, xw52, :(xw51, xw52), ba)
new_nubByNubBy'1(xw48, xw49, xw50, xw51, xw52, :(xw540, xw541), ba) → new_nubByNubBy'10(xw48, xw49, xw50, xw51, xw52, xw541, ba)
new_nubByNubBy'10(xw48, xw49, :(xw500, xw501), xw51, xw52, xw54, ba) → new_nubByNubBy'1(xw48, xw500, xw501, xw51, xw52, :(xw51, xw52), ba)
new_nubByNubBy'10(xw48, xw49, xw50, xw51, xw52, :(xw540, xw541), ba) → new_nubByNubBy'10(xw48, xw49, xw50, xw51, xw52, xw541, ba)
new_nubByNubBy'10(xw48, xw49, xw50, xw51, xw52, [], ba) → new_nubByNubBy'(xw48, xw50, xw49, :(xw51, xw52), ba)
From the DPs we obtained the following set of size-change graphs:
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ LetRed
↳ HASKELL
↳ Narrow
↳ AND
↳ QDP
↳ QDP
↳ QDPSizeChangeProof
↳ QDP
↳ QDP
new_deleteBy0(xw181, xw180, xw3, xw4110, ba) → new_deleteBy(xw3, xw4110, xw181, ba)
new_deleteBy(xw3, xw4110, :(xw180, xw181), ba) → new_deleteBy0(xw181, xw180, xw3, xw4110, ba)
From the DPs we obtained the following set of size-change graphs:
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ LetRed
↳ HASKELL
↳ Narrow
↳ AND
↳ QDP
↳ QDP
↳ QDP
↳ QDPSizeChangeProof
↳ QDP
new_foldl(xw3, :(xw4110, xw4111), ba) → new_foldl(xw3, xw4111, ba)
From the DPs we obtained the following set of size-change graphs:
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ LetRed
↳ HASKELL
↳ Narrow
↳ AND
↳ QDP
↳ QDP
↳ QDP
↳ QDP
↳ QDPSizeChangeProof
new_psPs(:(xw411111110, xw411111111), xw15, ba) → new_psPs(xw411111111, xw15, ba)
From the DPs we obtained the following set of size-change graphs: